home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / modules / galleryimages.psc < prev    next >
Text File  |  2008-06-11  |  1KB  |  50 lines
  1. %include uservalidate.inc %/include
  2.  
  3. %code
  4.  
  5. %include storeddata.inc %/include
  6. %include resulttable.inc %/include
  7.  
  8. var
  9.   AItems: TCatalogItems;
  10.   AGall: TImageGallery;
  11.   i: Integer;
  12. begin
  13.   if not FindStoredData ('dsITEMS', AItems, False) then
  14.   begin
  15.     AItems := TCatalogItems.Create (TCatalogItem, '');
  16.     StoreData ('dsITEMS', AItems);
  17.   end;
  18.  
  19.   if AItems.GUID <> Request.Params.Values['GUID'] then
  20.   begin
  21.     AItems.Clear;
  22.     AItems.LastSort      := csPhotoDate;
  23.     AItems.LastSortOrder := stAscending;
  24.  
  25.     AGall := TImageGallery.Create(nil);
  26.     AGall.GUID := Request.Params.Values['GUID'];
  27.  
  28.     Catalog.EnumModelGallery (AGall, False);
  29.  
  30.     Catalog.EnumPhotosGallery (AGall, AItems, vptAlbumDisplay);
  31.  
  32.     AItems.Name := toWideString('');
  33.     AItems.GUID := Request.Params.Values['GUID'];
  34.     if Catalog.GalleryHasCollections (AGall) then
  35.       AItems.Name := AItems.Name + 
  36.                      '';
  37.  
  38.     AItems.Name := AItems.Name + 
  39.                    AGall.GalleryName + 
  40.                    '<span class="small"><br/>';
  41.  
  42.     AItems.Name := AItems.Name + '</span>';
  43.  
  44.     AGall.Free;
  45.   end;
  46.   
  47.   result := IncludeResultTable (AItems, 'dsITEMS', 1, 0, 0);
  48. end;
  49.  
  50. %/code